(sendmail-send-it): Use user-mail-address.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5384dc0cb25aa46706c9c210a162ea7c5f087fe3..0fa9502351719106ebe32694d179fbee121ac5ad 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -522,7 +522,7 @@ the user from the mailer."
            ;; they put one in themselves.
            (goto-char (point-min))
            (if (not (re-search-forward "^From:" delimline t))
-               (let* ((login (user-login-name))
+               (let* ((login user-mail-address)
                       (fullname (user-full-name)))
                  (cond ((eq mail-from-style 'angles)
                         (insert "From: " fullname)